5 POKE53281,0:POKE53280,6:PRINT"[147]"SPC(10)"[211]CRIPT [212]EXT [205]ENU"
6 PRINT"1 ==> [195]URSIVE TEXT"
7 PRINT"2 ==> [201]TALIC TEXT"
8 PRINT"3 ==> [210]ETURN TO [204][207][193][196][211][212][193][210]"
10 INPUT"[215]HICH";N$:POKE53281,15:N=VAL(N$)
11 IFN<>1ANDN<>2ANDN<>3THEN5
12 IFN=1THENN$="CURSIVE"
13 IFN=2THENN$="ITALIC"
14 IFN=3THENLOAD"HELLO CONNECT",8:END
20 PRINT"[144]NORMAL TYPE:":PRINT"ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890":PRINT
30 PRINT"SHIFTED TYPE:":PRINT"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]":PRINT
40 PRINT"REVERSE TYPE:":PRINT"ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890":PRINT
50 PRINT"[146]REVERSE SHIFTED TYPE:":PRINT"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"
60 POKE56334,PEEK(56334)OR1:POKE53272,(PEEK(53272)AND240)+12
70 OPEN1,8,12,N$+"*,P,R":GET#1,A$,A$
80 FORI=.TO255:FORJ=.TO7:GET#1,A$:POKE12288+J+I*8,ASC(A$+CHR$(.)):NEXTJ,I:CLOSE1